home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / mus / play / mpegui.lha / mpeGUI.rexx next >
OS/2 REXX Batch file  |  1997-04-22  |  3KB  |  111 lines
  1. /* mpega requestor GUI (c)1997 Ridwan Hughes
  2.    Requires the RexxReqTools library
  3.  
  4.    Version 1.0
  5.  
  6.    Requires: c:mpega (version 2.4), c:run, c:break, c:wait and RexxReqTools
  7.              from Aminet.
  8.  
  9. */
  10.  
  11. call addlib("libs:rexxreqtools.library", 0, -30, 0)
  12.  
  13. fonttag=""
  14. fname=""
  15. fnamedisp=""
  16. hz=2
  17. playmode=1
  18. qual=1
  19. NL='0a'x
  20. CL='0c'x
  21. klicked=0
  22.  
  23. say CL
  24.  
  25. do forever
  26.   if hz=1 then do
  27.     hzdisp="44"
  28.     hzopt1="22"
  29.     hzopt2="11"
  30.     hzsel1=2
  31.     hzsel2=4
  32.     end
  33.   if hz=2 then do
  34.     hzdisp="22"
  35.     hzopt1="44"
  36.     hzopt2="11"
  37.     hzsel1=1
  38.     hzsel2=4
  39.     end
  40.   if hz=4 then do
  41.     hzdisp="11"
  42.     hzopt1="44"
  43.     hzopt2="22"
  44.     hzsel1=1
  45.     hzsel2=2
  46.     end
  47.   modedisp="Stereo"
  48.   modesel="Mono"
  49.   modespac=""
  50.   if playmode=2 then do
  51.     modedisp="Mono"
  52.     modesel="Stereo"
  53.     modespac="  "
  54.     end
  55.   if qual=2 then do
  56.     qualdisp="Best"
  57.     qualspac="   "
  58.     qualsel1=1
  59.     qualsel2=0
  60.     end
  61.   if qual=1 then do
  62.     qualdisp="Medium"
  63.     qualspac=" "
  64.     qualsel1=2
  65.     qualsel2=0
  66.     end
  67.   if qual=0 then do
  68.     qualdisp="No"
  69.     qualspac="     "
  70.     qualsel1=2
  71.     qualsel2=1
  72.     end
  73.   if klicked=7 then do
  74.     if fname ~="" then do
  75.       address command "break `status com c:mpega` <>nil:"
  76.       address command "wait 0"
  77.       say CL||NL||"*** Playing "||fname||" ***"
  78.       say "*** At "||hzdisp||"khz, "||modedisp||", "||qualdisp||" sound quality enhancement ***"
  79.       monno=''
  80.       if playmode=2 then monno=' -m'
  81.       address command 'run c:mpega -f0 -d'||hz||' -n -q'||qual||monno||' "'||fname||'"'
  82.       end
  83.     end
  84.   call rtezrequest( "Name: "||fnamedisp||NL||,
  85.                     "Freq: "||hzdisp||"khz"||" (Assuming using a 44khz file)   _ _   __   __"||NL||,
  86.                     "Mode: "||modedisp||modespac||"                               | | | |  \ |    /\  /  / /"||NL||,
  87.                     "Qual: "qual||" ("||qualdisp||" sound quality enhancement)"||qualspac||"|   | |--' |-  / _ /  / /"||NL||,
  88.                     "                                           |   | |    |__ \_/ \_/ /"||NL||,
  89.                     "Please select an option.                      -=-  Version 1.0  -=-",,
  90.     hzopt1||"khz|"||hzopt2||"khz|"||modesel||"|Q"||qualsel1||"|Q"||qualsel2||"|Filename|Play|Quit", "Simple GUI for mpega, ©1997 Ridwan Hughes <fox@ridhughz.demon.co.uk>", fonttag "rtez_defaultresponse = 7, rt_reqpos = reqpos_centerscr")
  91.   klicked=rtresult
  92.   if klicked=1 then hz=hzsel1
  93.   if klicked=2 then hz=hzsel2
  94.   if klicked=3 then playmode=playmode+1
  95.   if playmode=3 then playmode=1
  96.   if klicked=4 then qual=qualsel1
  97.   if klicked=5 then qual=qualsel2
  98.   if klicked=6 then do
  99.     filename = rtfilerequest(, , "Pick an mpeg 1/2/3 file" , , fonttag "rtfi_buffer = true")
  100.     if rtresult ~= 0 then fname=filename
  101.     fnamedisp=fname
  102.     if length(fname)>63 then fnamedisp=right(fname,63)
  103.     end
  104.   if klicked=0 then do
  105.     address command "break `status com c:mpega` <>nil:"
  106.     leave
  107.     end
  108.   end
  109.  
  110. exit 0
  111.